home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / LANG / HUGS1 / !Hugs_!Run < prev    next >
Encoding:
Text File  |  1995-02-14  |  681 b   |  23 lines
  1. | Hugs v1.0
  2. set Hugs$Dir <Obey$Dir>
  3. iconsprites <Hugs$Dir>.!sprites
  4. |
  5. | default prelude
  6. if "<HUGS>"="" then set HUGS <Hugs$Dir>.prelude
  7. | filetypes and Run actions
  8. set hs$ 2AA 
  9. do set File$Type_<hs$> HScript
  10. do set Alias$@RunType_<hs$> |"/ <Hugs$Dir>.!Run %%*0|"
  11. set hp$ 2AB
  12. do set File$Type_<hp$> HProj
  13. do set Alias$@RunType_<hp$> |"/ <Hugs$Dir>.!Run + %%*0|"
  14. | ensure we have !Edit up
  15. if "<TaskWindow$Server>"<>"Resources:$.Apps.!Edit" then Error 0 "Hugs needs !Edit" 
  16. |
  17. | set default options
  18. set Hugs$Opts -h120000 -p> -rit +fwk -sgle.
  19. set Hugs_run <Hugs$Dir>.Hugs <Hugs$Opts>
  20. |
  21. wimpslot -min 16K -max 16K
  22. | NB. No carriage return at end of next line!
  23. / <Hugs$Dir>.!RunImage %*0